supplied-by : 2tuck ( xd1 xd2 -- xd2 xd1 xd2 )  2swap 2over ;
